﻿Public Class AuditoriaDocumentoCliente

    Dim _CIA, _SUC, _TDOC, _DCI, _USU, _FEC, _EST As String

    Sub New(cia As String, suc As String, tdoc As String, dci As String, usu As String, est As String)
        Me.CIA = cia
        Me._SUC = suc
        Me._TDOC = tdoc
        Me._DCI = dci
        Me._USU = usu
        Me._EST = est
    End Sub

    Public Property CIA() As String
        Get
            Return _CIA
        End Get
        Set(value As String)
            _CIA = value
        End Set
    End Property

    Public Property SUC_Codigo() As String
        Get
            Return _SUC
        End Get
        Set(value As String)
            _SUC = value
        End Set
    End Property

    Public Property TDOC_Codigo() As String
        Get
            Return _TDOC
        End Get
        Set(value As String)
            _TDOC = value
        End Set
    End Property

    Public Property DCI_Codigo() As String
        Get
            Return _DCI
        End Get
        Set(value As String)
            _DCI = value
        End Set
    End Property

    Public Property USU_Codigo() As String
        Get
            Return _USU
        End Get
        Set(value As String)
            _USU = value
        End Set
    End Property

    Public Property ADC_Fecha() As String
        Get
            Return _FEC
        End Get
        Set(value As String)
            _FEC = value
        End Set
    End Property

    Public Property EST_Codigo() As String
        Get
            Return _EST
        End Get
        Set(value As String)
            _EST = value
        End Set
    End Property

End Class
